home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 3.iso / bin / LinkCdResource < prev    next >
Text File  |  1996-11-11  |  866b  |  35 lines

  1. #!/bin/perl
  2. $ENV{'PATH'} = "/usr/bsd:/bin/:/usr/bin:/usr/sbin:/usr/bin/X11";
  3.  
  4. # read $HOME/.dtresource file and link SGI CDs to virtual document root
  5.  
  6. $htdocs = "$ARGV[0]";
  7. $dtWWWroot = "$ARGV[1]";
  8. $this_CD = "$ARGV[2]";
  9.  
  10. open(IN, "$dtWWWroot/.dtcdresource") || 
  11.     die "Unable to read $dtWWWroot/.dtcdresource in LinkCdResource\n";
  12. $_ = <IN>; # burn first line
  13. while (<IN>) {
  14.     chop;
  15.     s/\s.*// || die "$dtWWWroot/.dtcdresource is misformatted\n";
  16.     $path = $_;
  17.     if (open(IM, "$path/.IM")) {
  18.         $cdnum = -1;
  19.         while (<IM>) {
  20.             next unless /^id\s*=\s*"(\d+)"\s*$/;
  21.             $cdnum = $1;
  22.             last;
  23.         }
  24.     } elsif (open(IM, "$path/IM")) {
  25.         $cdnum = <IM>;
  26.         chop $cdnum;
  27.     } else {
  28.         next;
  29.     }
  30.     close(IM);
  31.     die "Unable to find id number in $path/.IM\n" if $cdnum < 0;
  32.     `/usr/bin/ln -s $path $htdocs/ext_cd$cdnum > /dev/null 2>&1`;
  33.     print "CDROM drive:                     $path\n";
  34. }
  35.